home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr36 / mapl0301.zip / CVTLNG.ZIP / CVTLNG.BAS next >
BASIC Source File  |  1993-02-24  |  2KB  |  60 lines
  1. ON ERROR GOTO 65000
  2. 10 CLS
  3. OPEN "RBBS0PC.TXT" FOR INPUT AS #2
  4. OPEN "RBBSPC.LNG" FOR OUTPUT AS #3
  5. PRINT STRING$(21, 177) + " Maple RBBS language Conversion Utility " + STRING$(18, 177)
  6. FOR X = 2 TO 23
  7. LOCATE X, 1: PRINT CHR$(177)
  8. LOCATE X, 79: PRINT CHR$(177)
  9. NEXT X
  10. LOCATE 23, 1
  11. PRINT STRING$(22, 177) + " For Maple Version of RBBS-PC ONLY !! " + STRING$(19, 177)
  12.  
  13.     LOCATE 5, 10
  14.       PRINT " Please Run this program whenever you make changes to"
  15.       LOCATE 7, 13
  16.       PRINT " The RBBS0PC.TXT file........."
  17.  
  18. Count = 1
  19.      WHILE NOT EOF(2)
  20.       LINE INPUT #2, InTxt$
  21.       LOCATE 12, 10
  22.       PRINT " Reading from RBBS0PC.TXT file @ Line # " + STR$(Count)
  23.         IF LEFT$(InTxt$, 1) = ";" THEN InTxt$ = ""
  24.            IF InTxt$ <> "" THEN
  25.              OutTxt$ = InTxt$ + " *eol*"
  26.              LOCATE 14, 10
  27.              PRINT " Writing to RBBSPC.LNG file Line # " + STR$(Count)
  28. 100            PRINT #3, OutTxt$ + SPACE$(90 - LEN(OutTxt$))
  29.             Count = Count + 1
  30.            END IF
  31. WEND
  32. CLOSE 2, 3
  33.  
  34. LOCATE 16, 10
  35. PRINT " Conversion Complete........"
  36. LOCATE 20, 10: LINE INPUT "Thank you....Press any Key to Quit ! "; YES$
  37. CLS
  38.  
  39.  
  40.  
  41.  
  42. 65000
  43.  
  44. IF ERL = 100 AND ERR = 5 THEN
  45. CLS : BEEP: BEEP: BEEP
  46. LOCATE 8, 10
  47. PRINT "ERROR occured ..................."
  48. LOCATE 10, 10
  49. PRINT " Line #" + STR$(Count) + " To Long, Please correct and try again "
  50. SYSTEM
  51. END IF
  52.  
  53.  
  54.  
  55. IF ERR = 53 THEN
  56. PRINT "RBBS0PC.LNG file not found, Please correct and retry...."
  57. SYSTEM
  58. END IF
  59.  
  60.